00100	C**** USE THIS FOR READING FILES FROM TRS80 OVER PHONE LINE. ****
00200	C   PUT "*" IN 1ST COLUMN OF LAST LINE OF INPUT FILE TO CAUSE AUTO END.
00300		DIMENSION I(100)
00400		DOUBLE PRECISION KK
00500	1	FORMAT(' TYPE OUTPUT NAME  '$)
00600		TYPE 1
00700	2	FORMAT(A10)
00800		ACCEPT 2,KK
00900	CC	CALL OFILE(1,N)
01000		CALL DEFINE(1,0,NONO,KK)
01050	C  'DEFINE' PUTS OUT FILE WITH NO EXTENSION (ONLY USING 1)
01100	6	FORMAT('    TYPE "*" WHEN INPUT IS COMPLETE'/)
01200	CC6	FORMAT('    TYPE "*" WHEN INPUT IS COMPLETE'/
01300	CC	1 '       ----WAITING FOR INPUT----'/)
01400		TYPE 6
01500	3	FORMAT(100A1)
01600	33	FORMAT(I,100A1)
01700	4	ACCEPT 3,I
01800		IF(I(1).EQ.'*')GO TO 5
01900		DO 10 K=100,1,-1
02000	10	IF(I(K).NE.' ')GO TO 11
02100	11	WRITE(1,3)(I(J),J=1,K)
02200		GO TO 4
02300	CC5	END FILE 1
02400	7	FORMAT(1XA10,' HAS BEEN WRITTEN')
02500	5	TYPE 7,KK
02600		END